
***********************************************************************************************************************
***********************************************************************************************************************
***																													***
*** COMPLYING WITH HUMAN RIGHTS. Simon Hug and Simone Wegmann			 											***
***																													***
***********************************************************************************************************************
***********************************************************************************************************************
use "cwhr_ii.dta"

***********************************************************************************************************************
*** Descriptives of compliance systems (beginning of Results section)												***
***********************************************************************************************************************

tab CompSyst if year==2008

sum Torture if CompSyst==1
sum Torture if CompSyst==2
sum Torture if CompSyst==3
sum Torture if CompSyst==4
sum Torture if CompSyst==5
sum ciri_physint if CompSyst==1 
sum ciri_physint if CompSyst==2
sum ciri_physint if CompSyst==3
sum ciri_physint if CompSyst==4
sum ciri_physint if CompSyst==5

 

***********************************************************************************************************************
*** Full model with physical integrity rights index (table 3)														***
***********************************************************************************************************************

**model 1
oprobit ciri_physint conf_l1 chga_regime_l1 pennwt_rgdpch_l1 Ratification_l1 RatYears RatYears2 CompSyst_un_l1 CompSyst_eu_l1, cluster(cowcode)
est store m1

**model 2
oprobit ciri_physint conf_l1 chga_regime_l1 pennwt_rgdpch_l1 Ratification_l1 RatYears RatYears2 CompSyst_un_l1 CompSyst_eu_l1 ciri_physint_l11-ciri_physint_l18, cluster(cowcode)
est store m2

**model 3
oprobit ciri_physint conf_l1 chga_regime_l1 pennwt_rgdpch_l1 Ratification_l1 RatYears RatYears2 CompSyst_un_l1 CompSyst_eu_l1 ciri_physint_l11-ciri_physint_l18 ciri_physint_l11_gdp-ciri_physint_l18_gdp ciri_physint_l11_dem-ciri_physint_l18_dem ciri_physint_l11_cs_un-ciri_physint_l18_cs_un ciri_physint_l15_cs_eu-ciri_physint_l18_cs_eu ciri_physint_l11_rat-ciri_physint_l18_rat ciri_physint_l11_RatYears-ciri_physint_l18_RatYears ciri_physint_l11_RatYears2-ciri_physint_l18_RatYears2 ciri_physint_l11_con-ciri_physint_l15_con ciri_physint_l1678_con, cluster(cowcode)

est store m3

cmp setup

* corrections *

replace Ratification_l1=0 if  Ratification_l1==1
replace Ratification_l1=1 if  Ratification_l1==2

cmp (ciri_physint= conf_l1 chga_regime_l1 pennwt_rgdpch_l1 Ratification_l1 RatYears RatYears2 CompSyst_un_l1 CompSyst_eu_l1 ) (Ratification_l1=conf_l1 chga_regime_l1 pennwt_rgdpch_l1 rat_l1),ind( $cmp_oprobit $cmp_probit)

est store m1n

cmp (ciri_physint=conf_l1 chga_regime_l1 pennwt_rgdpch_l1 Ratification_l1 RatYears RatYears2 CompSyst_un_l1 CompSyst_eu_l1 ciri_physint_l11-ciri_physint_l18 ) (Ratification_l1=conf_l1 chga_regime_l1 pennwt_rgdpch_l1 ciri_physint_l11-ciri_physint_l18  rat_l1),ind( $cmp_oprobit $cmp_probit)

est store m2n

cmp (ciri_physint=conf_l1 chga_regime_l1 pennwt_rgdpch_l1 Ratification_l1 RatYears RatYears2 CompSyst_un_l1 CompSyst_eu_l1 ciri_physint_l11-ciri_physint_l18 ciri_physint_l11_gdp-ciri_physint_l18_gdp ciri_physint_l11_dem-ciri_physint_l18_dem ciri_physint_l11_cs_un-ciri_physint_l18_cs_un ciri_physint_l15_cs_eu-ciri_physint_l18_cs_eu ciri_physint_l11_rat-ciri_physint_l18_rat ciri_physint_l11_RatYears-ciri_physint_l18_RatYears ciri_physint_l11_RatYears2-ciri_physint_l18_RatYears2 ciri_physint_l11_con-ciri_physint_l15_con  ciri_physint_l1678_con) (Ratification_l1=conf_l1 chga_regime_l1 pennwt_rgdpch_l1 ciri_physint_l11-ciri_physint_l18 ciri_physint_l11_gdp-ciri_physint_l18_gdp ciri_physint_l11_dem-ciri_physint_l18_dem  ciri_physint_l11_con-ciri_physint_l15_con  ciri_physint_l1678_con rat_l1),ind( $cmp_oprobit $cmp_probit)

est store m3n

estout m1 m2 m3, cells(b(star fmt(3)) se(par fmt(2))) stats(N aic)

estout m1 m1n m2 m2n m3 m3n, cells(b(star fmt(3)) se(par fmt(3))) stats(N aic)


estsimp oprobit ciri_physint conf_l1 chga_regime_l1 pennwt_rgdpch_l1 Ratification_l1 RatYears RatYears2 CompSyst_un_l1 CompSyst_eu_l1 ciri_physint_l11-ciri_physint_l18 ciri_physint_l11_gdp-ciri_physint_l18_gdp ciri_physint_l11_dem-ciri_physint_l18_dem ciri_physint_l11_cs_un-ciri_physint_l18_cs_un ciri_physint_l15_cs_eu-ciri_physint_l18_cs_eu ciri_physint_l11_rat-ciri_physint_l18_rat ciri_physint_l11_RatYears-ciri_physint_l18_RatYears ciri_physint_l11_RatYears2-ciri_physint_l18_RatYears2 ciri_physint_l11_con-ciri_physint_l15_con  ciri_physint_l1678_con rat_l1

/* un compliance system democracy effect of ratification*/
/* summarized in ciriopf1rn.csv*/

centile pennwt_rgdpch_l1, centile(50)
setx min
setx chga_regime_l1 1
setx pennwt_rgdpch_l1 4730
simqi, fd(pr) changex(Ratification_l1 min max CompSyst_un_l1 min max)

setx min
setx chga_regime_l1 1
setx ciri_physint_l11_cs_un 1
setx ciri_physint_l11 1
setx pennwt_rgdpch_l1 4730
setx ciri_physint_l11_gdp 4730
simqi, fd(pr) changex(Ratification_l1 min max ciri_physint_l11_rat min max CompSyst_un_l1 min max ciri_physint_l11_cs_un min max)

setx min
setx chga_regime_l1 1
setx ciri_physint_l12 1
setx pennwt_rgdpch_l1 4730
setx ciri_physint_l12_gdp 4730
simqi, fd(pr) changex(Ratification_l1 max min ciri_physint_l12_rat min max CompSyst_un_l1 min max ciri_physint_l12_cs_un min max)

setx min
setx chga_regime_l1 1
setx ciri_physint_l13 1
setx pennwt_rgdpch_l1 4730
setx ciri_physint_l13_gdp 4730
simqi, fd(pr) changex(Ratification_l1 min max ciri_physint_l13_rat min max CompSyst_un_l1 min max ciri_physint_l13_cs_un min max)

setx min
setx chga_regime_l1 1
setx ciri_physint_l14 1
setx pennwt_rgdpch_l1 4730
setx ciri_physint_l14_gdp 4730
simqi, fd(pr) changex(Ratification_l1 min max ciri_physint_l14_rat min max CompSyst_un_l1 min max ciri_physint_l14_cs_un min max)

setx min
setx chga_regime_l1 1
setx ciri_physint_l15 1
setx pennwt_rgdpch_l1 4730
setx ciri_physint_l15_gdp 4730
simqi, fd(pr) changex(Ratification_l1 min max ciri_physint_l15_rat min max CompSyst_un_l1 min max ciri_physint_l15_cs_un min max)

setx min
setx chga_regime_l1 1
setx ciri_physint_l16 1
setx pennwt_rgdpch_l1 4730
setx ciri_physint_l16_gdp 4730
simqi, fd(pr) changex(Ratification_l1 min max ciri_physint_l16_rat min max CompSyst_un_l1 min max ciri_physint_l16_cs_un min max)

setx min
setx chga_regime_l1 1
setx ciri_physint_l17 1
setx pennwt_rgdpch_l1 4730
setx ciri_physint_l17_gdp 4730
simqi, fd(pr) changex(Ratification_l1 min max ciri_physint_l17_rat min max CompSyst_un_l1 min max ciri_physint_l17_cs_un min max)

setx min
setx chga_regime_l1 1
setx ciri_physint_l18 1
setx pennwt_rgdpch_l1 4730
setx ciri_physint_l18_gdp 4730
simqi, fd(pr) changex(Ratification_l1 min max ciri_physint_l18_rat min max CompSyst_un_l1 min max ciri_physint_l18_cs_un min max)


/* not eu nor un compliance system non democracy effect of ratification*/
/* summarized in ciriopf1qn.csv */

setx min
setx chga_regime_l1 1
setx pennwt_rgdpch_l1 4730
simqi, fd(pr) changex(Ratification_l1 min max)

setx min
setx chga_regime_l1 1
setx ciri_physint_l11 1
setx pennwt_rgdpch_l1 4730
setx ciri_physint_l18_gdp 4730
simqi, fd(pr) changex(Ratification_l1 min max ciri_physint_l11_rat min max)

setx min
setx chga_regime_l1 1
setx ciri_physint_l12 1
setx pennwt_rgdpch_l1 4730
setx ciri_physint_l18_gdp 4730
simqi, fd(pr) changex(Ratification_l1 max min ciri_physint_l12_rat min max)

setx min
setx chga_regime_l1 1
setx ciri_physint_l13 1
setx pennwt_rgdpch_l1 4730
setx ciri_physint_l18_gdp 4730
simqi, fd(pr) changex(Ratification_l1 min max ciri_physint_l13_rat min max)

setx min
setx chga_regime_l1 1
setx ciri_physint_l14 1
setx pennwt_rgdpch_l1 4730
setx ciri_physint_l18_gdp 4730
simqi, fd(pr) changex(Ratification_l1 min max ciri_physint_l14_rat min max)

setx min
setx chga_regime_l1 1
setx ciri_physint_l15 1
setx pennwt_rgdpch_l1 4730
setx ciri_physint_l18_gdp 4730
simqi, fd(pr) changex(Ratification_l1 min max ciri_physint_l15_rat min max)

setx min
setx chga_regime_l1 1
setx ciri_physint_l16 1
setx pennwt_rgdpch_l1 4730
setx ciri_physint_l18_gdp 4730
simqi, fd(pr) changex(Ratification_l1 min max ciri_physint_l16_rat min max)

setx min
setx chga_regime_l1 1
setx ciri_physint_l17 1
setx pennwt_rgdpch_l1 4730
setx ciri_physint_l18_gdp 4730
simqi, fd(pr) changex(Ratification_l1 min max ciri_physint_l17_rat min max)

setx min
setx chga_regime_l1 1
setx ciri_physint_l18 1
setx pennwt_rgdpch_l1 4730
setx ciri_physint_l18_gdp 4730
simqi, fd(pr) changex(Ratification_l1 min max ciri_physint_l18_rat min max)


--------------

/* eu compliance system democracy effect of ratification*/
/* summarized in ciriopf1sn.csv */
setx min
setx chga_regime_l1 1
setx pennwt_rgdpch_l1 4730
simqi, fd(pr) changex(Ratification_l1 min max CompSyst_eu min max)

setx min
setx chga_regime_l1 1
setx ciri_physint_l15 1
setx pennwt_rgdpch_l1 4730
setx ciri_physint_l18_gdp 4730
simqi, fd(pr) changex(Ratification_l1 min max ciri_physint_l15_rat min max CompSyst_eu min max ciri_physint_l15_cs_eu min max)

setx min
setx chga_regime_l1 1
setx ciri_physint_l16 1
setx pennwt_rgdpch_l1 4730
setx ciri_physint_l18_gdp 4730
simqi, fd(pr) changex(Ratification_l1 min max ciri_physint_l16_rat min max CompSyst_eu min max ciri_physint_l16_cs_eu min max)

setx min
setx chga_regime_l1 1
setx ciri_physint_l17 1
setx pennwt_rgdpch_l1 4730
setx ciri_physint_l18_gdp 4730
simqi, fd(pr) changex(Ratification_l1 min max ciri_physint_l17_rat min max CompSyst_eu min max ciri_physint_l17_cs_eu min max)

setx min
setx chga_regime_l1 1
setx ciri_physint_l18 1
setx pennwt_rgdpch_l1 4730
setx ciri_physint_l18_gdp 4730
simqi, fd(pr) changex(Ratification_l1 min max ciri_physint_l18_rat min max CompSyst_eu min max ciri_physint_l18_cs_eu min max)



***********************************************************************************************************************
*** TORTURE table 4 																								***
***********************************************************************************************************************

**dummies torture (1/2/3): 3 best, 1 worst
sort cowcode year
recode torture (0=1) (1=2) (2=3), gen(Torture)
by cowcode: gen Torturelag = Torture[_n-1] if year==year[_n-1]+1
generate Torturel1_1 = Torturelag
replace Torturel1_1 = 0 if Torturel1_1==2
replace Torturel1_1 = 0 if Torturel1_1==3
generate Torturel1_2 = Torturelag
replace Torturel1_2 = 0 if Torturel1_2==1
replace Torturel1_2 = 0 if Torturel1_2==3
generate Torturel1_3 = Torturelag
replace Torturel1_3 = 0 if Torturel1_3==1
replace Torturel1_3 = 0 if Torturel1_3==2
recode Torturel1_3 (3=1)
recode Torturel1_2 (2=1)


**interactions model 3
***torture and gdp
generate Torturel1_1_pennwt_rgdpch_l1 = Torturel1_1 * pennwt_rgdpch_l1
generate Torturel1_2_pennwt_rgdpch_l1 = Torturel1_2 * pennwt_rgdpch_l1
generate Torturel1_3_pennwt_rgdpch_l1 = Torturel1_3 * pennwt_rgdpch_l1

***torture and democracy
generate Torturel1_1_chga_regime_l1 = Torturel1_1 * chga_regime_l1
generate Torturel1_2_chga_regime_l1 = Torturel1_2 * chga_regime_l1
generate Torturel1_3_chga_regime_l1 = Torturel1_3 * chga_regime_l1

***torture and CompSyst UN
generate Torturel1_1_CompSyst_un_l1 = Torturel1_1 * CompSyst_un_l1
generate Torturel1_2_CompSyst_un_l1 = Torturel1_2 * CompSyst_un_l1
generate Torturel1_3_CompSyst_un_l1 = Torturel1_3 * CompSyst_un_l1

***torture and CompSyst EU
generate Torturel1_1_CompSyst_eu_l1 = Torturel1_1 * CompSyst_eu_l1
generate Torturel1_2_CompSyst_eu_l1 = Torturel1_2 * CompSyst_eu_l1
generate Torturel1_3_CompSyst_eu_l1 = Torturel1_3 * CompSyst_eu_l1

***torture and ratification
generate Torturel1_1_Ratification_l1 = Torturel1_1 * Ratification_l1
generate Torturel1_2_Ratification_l1 = Torturel1_2 * Ratification_l1
generate Torturel1_3_Ratification_l1 = Torturel1_3 * Ratification_l1

***torture and years since ratifiation
generate Torturel1_1_RatYears = Torturel1_1 * RatYears
generate Torturel1_2_RatYears = Torturel1_2 * RatYears
generate Torturel1_3_RatYears = Torturel1_3 * RatYears

***torture and years since ratifiation`2
generate YearsRat2 = RatYears*RatYears
generate Torturel1_1_YearsRat2 = Torturel1_1 * YearsRat2
generate Torturel1_2_YearsRat2 = Torturel1_2 * YearsRat2
generate Torturel1_3_YearsRat2 = Torturel1_3 * YearsRat2

***torture and conflict
generate Torturel1_1_conf_l1 = Torturel1_1 * conf_l1
generate Torturel1_2_conf_l1 = Torturel1_2 * conf_l1
generate Torturel1_3_conf_l1 = Torturel1_3 * conf_l1

***torture and population
generate Torturel1_1_logpop_l1 = Torturel1_1 * logpop_l1
generate Torturel1_2_logpop_l1 = Torturel1_2 * logpop_l1
generate Torturel1_3_logpop_l1 = Torturel1_3 * logpop_l1



**model 1
oprobit Torture conf_l1 chga_regime_l1 pennwt_rgdpch_l1 Ratification_l1 RatYears YearsRat2 logpop CompSyst_un_l1 CompSyst_eu_l1, cluster(cowcode)

est store t1

**model 2
oprobit Torture conf_l1 chga_regime_l1 pennwt_rgdpch_l1 Ratification_l1 RatYears YearsRat2 logpop CompSyst_un_l1 CompSyst_eu_l1 Torturel1_2 Torturel1_3, cluster(cowcode)

est store t2

**model 3
#delimit ;
oprobit Torture conf_l1 chga_regime_l1 pennwt_rgdpch_l1 Ratification_l1 RatYears YearsRat2 logpop CompSyst_un_l1 CompSyst_eu_l1  Torturel1_2 Torturel1_3 Torturel1_2_pennwt_rgdpch_l1 Torturel1_3_pennwt_rgdpch_l1 Torturel1_2_chga_regime_l1 Torturel1_3_chga_regime_l1 Torturel1_2_CompSyst_un_l1 Torturel1_3_CompSyst_un_l1 Torturel1_2_CompSyst_eu_l1 Torturel1_3_CompSyst_eu_l1 Torturel1_2_Ratification_l1 Torturel1_3_Ratification_l1 Torturel1_2_RatYears Torturel1_3_RatYears Torturel1_2_YearsRat2 Torturel1_3_YearsRat2 Torturel1_2_logpop_l1 Torturel1_3_logpop_l1 Torturel1_2_conf_l1 Torturel1_3_conf_l1, cluster(cowcode)
#delimit cr

est store t3

estout t1 t2 t3, cells(b(star fmt(3)) se(par fmt(2))) stats(N aic)




***********************************************************************************************************************
*** Table 5																											***
***********************************************************************************************************************

*3.1* drop cases: GDP 
** drop cases for Czech Republic before 1993 (Czechoslovakia data)
drop if ccode == 316 & year < 1993

** drop cases for Slovak Republic before 1993 (Czechoslovakia data)
drop if ccode == 317 & year < 1993

** drop cases for Germany before 1990 (West-Germany data)
drop if ccode == 255 & year < 1990

** drop cases for Yemen before 1990(North Yemen data)
drop if ccode == 679 & year < 1990


oprobit ciri_physint conf_l1 chga_regime_l1 pennwt_rgdpch_l1 Ratification_l1 RatYears RatYears2 CompSyst_un_l1 CompSyst_eu_l1, cl(ccode)
est store m4

oprobit ciri_physint conf_l1 chga_regime_l1 pennwt_rgdpch_l1 Ratification_l1 RatYears RatYears2 CompSyst_un_l1 CompSyst_eu_l1 ciri_physint_l11-ciri_physint_l18, cl(ccode)
est store m5

oprobit ciri_physint conf_l1 chga_regime_l1 pennwt_rgdpch_l1 Ratification_l1 RatYears RatYears2 CompSyst_un_l1 CompSyst_eu_l1 ciri_physint_l11-ciri_physint_l18 ciri_physint_l11_gdp-ciri_physint_l18_gdp ciri_physint_l11_dem-ciri_physint_l18_dem ciri_physint_l11_cs_un-ciri_physint_l18_cs_un ciri_physint_l15_cs_eu-ciri_physint_l18_cs_eu ciri_physint_l11_rat-ciri_physint_l18_rat ciri_physint_l11_RatYears-ciri_physint_l18_RatYears ciri_physint_l11_RatYears2-ciri_physint_l18_RatYears2 ciri_physint_l11_con-ciri_physint_l15_con  ciri_physint_l1678_con, cl(ccode)
est store m6

estout m4 m5 m6, cells(b(star fmt(3)) se(par fmt(3))) stats(N aic) 



***********************************************************************************************************************
*** table 6 conditional logit																						***
***********************************************************************************************************************

oprobit ciri_physint conf_l1 chga_regime_l1 pennwt_rgdpch_l1 Ratification_l1 RatYears RatYears2 CompSyst_un_l1 CompSyst_eu_l1, cl(ccode)

predict predi if e(sample), xb 

qui sum ciri_physint
local lk= r(min)
local hk= r(max)
bys cowcode: gen iid=_n
gen long  gcowcode=cowcode*100+iid
expand 8
bys gcowcode: gen cid=_n
qui gen long gidcid=cowcode*100+cid
qui gen dk= ciri_physint>=cid+1
clogit dk conf_l1 chga_regime_l1 pennwt_rgdpch_l1 Ratification_l1 RatYears RatYears2 CompSyst_un_l1 CompSyst_eu_l1  if predi!=., group(gidcid) cluster(cowcode)

estimates store m4

predict tt1 if e(sample), xb

table Country if tt1!=., c(min Year max Year n Year)

clogit  dk conf_l1 chga_regime_l1 pennwt_rgdpch_l1 Ratification_l1 RatYears RatYears2 CompSyst_un_l1 CompSyst_eu_l1 ciri_physint_l11-ciri_physint_l18, group(gidcid) cluster(cowcode)

estimates store m5

clogit  dk conf_l1 chga_regime_l1 pennwt_rgdpch_l1 Ratification_l1 RatYears RatYears2 CompSyst_un_l1 CompSyst_eu_l1 ciri_physint_l11-ciri_physint_l18 ciri_physint_l11_gdp-ciri_physint_l18_gdp ciri_physint_l11_dem-ciri_physint_l18_dem ciri_physint_l11_cs_un-ciri_physint_l18_cs_un ciri_physint_l15_cs_eu-ciri_physint_l18_cs_eu ciri_physint_l11_rat-ciri_physint_l18_rat ciri_physint_l11_RatYears-ciri_physint_l18_RatYears ciri_physint_l11_RatYears2-ciri_physint_l18_RatYears2 ciri_physint_l11_con-ciri_physint_l15_con  ciri_physint_l1678_con, group(gidcid) cluster(cowcode)

estimates store m6

estout m1 m1a m4 m2 m2a m5 m3 m3a m6, cells(b(star fmt(3)) se(par fmt(3))) stats(N aic)

summ dk



***********************************************************************************************************************
*** table 7																											***
***********************************************************************************************************************

***physical integrity and population dummies
tab Populationtotal
generate logpop =log(Populationtotal)
tab logpop

by cowcode: gen logpop_l1 = logpop[_n-1] if year==year[_n-1]+1
tab logpop_l1

generate ciri_physint_l10_logpop=ciri_physint_l10*logpop_l1
generate ciri_physint_l11_logpop=ciri_physint_l11*logpop_l1
generate ciri_physint_l12_logpop=ciri_physint_l12*logpop_l1
generate ciri_physint_l13_logpop=ciri_physint_l13*logpop_l1
generate ciri_physint_l14_logpop=ciri_physint_l14*logpop_l1
generate ciri_physint_l15_logpop=ciri_physint_l15*logpop_l1
generate ciri_physint_l16_logpop=ciri_physint_l16*logpop_l1
generate ciri_physint_l17_logpop=ciri_physint_l17*logpop_l1
generate ciri_physint_l18_logpop=ciri_physint_l18*logpop_l1

**model 1
oprobit ciri_physint conf_l1 chga_regime_l1 pennwt_rgdpch_l1 Ratification_l1 RatYears RatYears2 logpop_l1 CompSyst_un_l1 CompSyst_eu_l1, cluster(cowcode)
est store m17

**model 2
oprobit ciri_physint conf_l1 chga_regime_l1 pennwt_rgdpch_l1 Ratification_l1 RatYears RatYears2 logpop_l1 CompSyst_un_l1 CompSyst_eu_l1 ciri_physint_l11-ciri_physint_l18, cluster(cowcode)
est store m27

**model 3
#delimit ;
oprobit ciri_physint conf_l1 chga_regime_l1 pennwt_rgdpch_l1 Ratification_l1 RatYears RatYears2 logpop_l1 CompSyst_un_l1 CompSyst_eu_l1 ciri_physint_l11-ciri_physint_l18 ciri_physint_l11_gdp-ciri_physint_l18_gdp ciri_physint_l11_dem-ciri_physint_l18_dem ciri_physint_l11_cs_un-ciri_physint_l18_cs_un ciri_physint_l15_cs_eu-ciri_physint_l18_cs_eu ciri_physint_l11_rat-ciri_physint_l18_rat ciri_physint_l11_RatYears-ciri_physint_l18_RatYears ciri_physint_l11_RatYears2-ciri_physint_l18_RatYears2  ciri_physint_l11_logpop-ciri_physint_l18_logpop ciri_physint_l11_con-ciri_physint_l15_con ciri_physint_l1678_con, cluster(cowcode)
#delimit cr

est store m37

estout m17 m27 m37, cells(b(star fmt(3)) se(par fmt(3))) stats(N aic) 


